home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C++ / Applications / Muddweller 1.2 / source code / Main / LogWindow.cp < prev    next >
Encoding:
Text File  |  1994-02-11  |  2.6 KB  |  105 lines  |  [TEXT/MPS ]
  1. /* LogWindow - Implementation of TLogWindow                                   */
  2.  
  3. #include "LogWindow.h"
  4.  
  5.  
  6.         // • Implementation use
  7. #ifndef __MUDDOC__
  8. #include "MUDDoc.h"
  9. #endif
  10.  
  11. #ifndef __USizerView__
  12. #include "USizerView.h"
  13. #endif
  14.  
  15.  
  16.  
  17. //------------------------------------------------------------------------------
  18.  
  19. const short kMinHeight = 73;
  20. const short kMinWidth = 80;
  21. const short kMinLen = 14;
  22.  
  23. //------------------------------------------------------------------------------
  24.  
  25. #pragma segment SMUDDocRes
  26.  
  27. pascal void TLogWindow::Activate (Boolean entering)
  28. {
  29.     if (((TMUDDoc *) fDocument)->fUseCTB &&
  30.             (((TMUDDoc *) fDocument)->fConn != NULL))
  31.         CMActivate (((TMUDDoc *) fDocument)->fConn, entering);
  32.     inherited::Activate (entering);
  33. }
  34.  
  35. //------------------------------------------------------------------------------
  36.  
  37. #pragma segment SMUDDocRes
  38.  
  39. pascal Boolean TLogWindow::DoIdle (IdlePhase )
  40. {
  41.     return FALSE;
  42. }
  43.  
  44. //------------------------------------------------------------------------------
  45.  
  46. #pragma segment AOpen
  47.  
  48. pascal void TLogWindow::IRes (TDocument *itsDocument, TView *itsSuperView,
  49.         Ptr *itsParams)
  50. {
  51.     fLogView = NULL;
  52.     fCommandView = NULL;
  53.     inherited::IRes (itsDocument, itsSuperView, itsParams);
  54. }
  55.  
  56. //------------------------------------------------------------------------------
  57.  
  58. #pragma segment AOpen
  59.  
  60. pascal void TLogWindow::Open (void)
  61. {
  62.     Point minSize, xmaxSize;
  63.     TSizerView *aSizerView;
  64.     TextStyle aStyle;
  65.     VRect sizerRect;
  66.     long tileHeight;
  67.     
  68.     fLogView = (TLogView *) FindSubView ('logt');
  69.     fCommandView = (TCommandView *) FindSubView ('cmdf');
  70.     fLogView->SetMaxSize (((TMUDDoc *) fDocument)->fLogSize * 1024);
  71.     aStyle.tsFont = ((TMUDDoc *) fDocument)->fFontNum;
  72.     aStyle.tsFace = 0;
  73.     aStyle.tsSize = ((TMUDDoc *) fDocument)->fFontSize;
  74.     aStyle.tsColor = gRGBBlack;
  75.     fLogView->SetBaseStyle (&aStyle, kDontRedraw);
  76.     fCommandView->SetBaseStyle (&aStyle, kDontRedraw);
  77.     minSize.h = kMinWidth;
  78.     minSize.v = kMinHeight;
  79.     xmaxSize.h = fResizeLimits.right;
  80.     xmaxSize.v = fResizeLimits.bottom;
  81.     SetResizeLimits (minSize, xmaxSize);
  82.     aSizerView = (TSizerView *) FindSubView ('hors');
  83.     aSizerView->SetMinPaneLength (kMinLen);
  84.     aSizerView->FixupPanes (FALSE);
  85.     tileHeight = ((TMUDDoc *) fDocument)->fTileHeight;
  86.     if (tileHeight != 0) {
  87.         sizerRect = aSizerView->GetSizerRect (1);
  88.         sizerRect.bottom += tileHeight - sizerRect.top;
  89.         sizerRect.top += tileHeight - sizerRect.top;
  90.         aSizerView->SetPane (1, &sizerRect);
  91.     }
  92.     inherited::Open ();
  93. }
  94.  
  95. //------------------------------------------------------------------------------
  96.  
  97. #pragma segment MAInit
  98.  
  99. void InitLogWindow (void)
  100. {
  101.     if (gDeadStripSuppression) {
  102.         TLogWindow *aLogWindow = new TLogWindow;
  103.     }
  104. }
  105.